home *** CD-ROM | disk | FTP | other *** search
/ Talisman BBS - Support Disks / talisman bbs - dox - side 2.D64 / ultra seq print (.txt) < prev   
Encoding:
Commodore BASIC  |  1995-01-01  |  3.5 KB  |  89 lines
  1. 1 md=10916:sp=12094:gp=12156:oc=12230:cc=12233:cr=12465:ww=12592:rp=12628
  2. 2 poke53280,.:poke53281,.:poke788,52:dima$(112):printchr$(142):so=12955:ez=13047
  3. 3 s=1:a=0:rem set sound & ascii convert defaults   1=on - 0=off
  4. 4 print"[147][158]":k=7:a$="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":gosub10
  5. 5 k=8:a$="[221]    ultra seq-print    [221]":gosub10
  6. 6 k=9:a$="[221]      version 5.5      [221]":gosub10
  7. 7 k=10:a$="[221]  r.w. (bob k7) kober  [221]":gosub10
  8. 8 k=11:a$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":gosub10
  9. 9 gosub229:on-(peek(2025)=7)goto13:goto25
  10. 10 m=len(a$):fori=1tom/2:print"":forj=1tok:print"";:next
  11. 11 printspc(20-i)left$(a$,i)right$(a$,i):next
  12. 12 return
  13. 13 fori=1to1000:next:fori=1to8:sys59626:next:poke2025,2
  14. 14 k=6:a$="[150]these m/l routines are used ":gosub10
  15. 15 k=7:a$="[155][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] ":gosub237:gosub10:gosub229
  16. 16 k=9:a$="[159]read/print/scroll":gosub237:gosub10:gosub229
  17. 17 k=11:a$="[153]mi's  directory":gosub237:gosub10:gosub229
  18. 18 k=13:a$="[156]it's curtains":gosub237:gosub10:gosub229
  19. 19 k=15:a$="[129]2-col. read":gosub237:gosub10:gosub229
  20. 20 k=17:a$="[154]snap-shot":gosub237:gosub10:gosub229
  21. 21 k=19:a$="[158]ezdir":gosub237:gosub10:gosub229
  22. 22 k=23:a$="[151]any key to start[145]":gosub10:poke198,.:wait198,1:poke198,0
  23. 23 poke150,160:syssp:goto25
  24. 24 poke150,160:sysgp:poke198,.:wait198,1:poke198,.
  25. 25 poke53280,.:poke53281,.
  26. 26 syscc:poke53272,21:print"[147]"tab(8)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  27. 27 printtab(8)"[221]      main menu      [221]"
  28. 28 printtab(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  29. 29 fori=1to300:next:poke2,5:poke878,20:sysoc
  30. 30 ifbobthenpoke150,168:sysgp:goto49
  31. 31 printtab(43)"use      embedded <cr>      ignore"
  32. 32 printtab(2)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  33. 33 printtab(3)"[158][169]  [223][146][150]                         [158][129][169]  [223][155][146]"
  34. 34 printtab(3)"[158] f1 [146][150]  send output to screen  [129] f2 [146]"
  35. 35 printtab(3)"[158][223]  [146][169][150]                        [158] [129][223]  [146][169]"
  36. 36 printtab(42)"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  37. 37 printtab(3)"[149][169]  [223][146]                         [156][169]  [223]"
  38. 38 printtab(3)"[149] f3 [146]  [154]40 columns to printer  [156] f4 [146]"
  39. 39 printtab(3)"[149][223]  [146][169]                         [156][223]  [146][169]"
  40. 40 printtab(42)"[153][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  41. 41 printtab(3)"[152][169]  [223][146]                         [150][169]  [223]"
  42. 42 printtab(3) "[152] f5 [146] [153] 80 columns to printer  [150] f6 [146]"
  43. 43 printtab(3)"[152][223]  [146][169]                         [150][223]  [146][169]"
  44. 44 printtab(42)"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  45. 45 printtab(3)"[169]  [223][146]                         [169]  [223]"
  46. 46 printtab(3) " f7 [146][156] disk housekeeping  [129]quit  f8 [146]"
  47. 47 printtab(3)"[223]  [146][169]                         [223]  [146][169]"
  48. 48 ifbo=0thenbob=1:poke150,168:syssp
  49. 49 poke198,.:close15:open15,8,15:goto231
  50. 50 geta$:on-(a$="a")goto99:on-(a$="s")goto230:ifa$<"[133]"ora$>chr$(141)then50
  51. 51 f$=right$(str$(asc(a$)-132),1)
  52. 52 on(asc(a$)-132)goto53,55,57,128,54,56,58,123,228:goto50
  53. 53 gosub75:gosub59:goto71
  54. 54 f$="2":goto53
  55. 55 f$="3":poke600,0:gosub76:gosub59:oncolgoto70,195
  56. 56 f$="4":poke600,1:gosub76:gosub59:oncolgoto70,195
  57. 57 f$="5":gosub77:gosub59:goto70
  58. 58 f$="6":gosub77:gosub59:goto70
  59. 59 print"":poke214,x-2:print:print"[152]  ($=directory m=menu)[145][145]"
  60. 60 poke19,32:input"[158]  enter seq filename [153]$[157]";ff$
  61. 61 ifff$="m"then30
  62. 62 ifff$<>"$"thensyscc:x1=34:return
  63. 63 close15:open15,8,15:ifff$="$"thenprint#15,"i":input#15,e,e$:ifethenprint"[147]":gosub119
  64. 64 ifethen26
  65. 65 syscc:printchr$(142):sysmd:print:close15:open15,8,15:syscc
  66. 66 ifpeek(598)=34then26
  67. 67 x1=0:ff$=""
  68. 68 ff=peek(580+x1):ifff=34thenreturn
  69. 69 ff$=ff$+chr$(ff):x1=x1+1:goto68
  70. 70 open4,4,7:gosub112:ifqqthen26
  71. 71 open2,8,2,ff$:gosub118:on-(e<>0)goto26:gosub84
  72. 72 close2:close4:sys65511:open15,8,15:x1=0
  73. 73 gosub81:poke214,23:print:print"        [150] [208]ress f5 for the [205]enu [146]        [145]"
  74. 74 geta$:on-(a$<>chr$(135))goto74:goto26
  75. 75 forx=6to8:poke781,x:sys59903:next:return
  76. 76 forx=11to13:poke781,x:sys59903:next:gosub78:return
  77. 77 forx=16to18:poke781,x:sys59903:next:return
  78. 78 poke214,11:print:printtab(6)"1[146] or [154]2[146] columns?"
  79. 79 getcol$:ifcol$<"1"orcol$>"2"then79
  80. 80 col=val(col$):return
  81. 81 on-(s=0)goto236:forl=54272to54295:pokel,0:next:poke54296,15:poke54277,8:poke54278,255
  82. 82 poke54276,23:fory=1to3:f2=8:poke54273,2:forx=1to5:poke54287,f2:f2=f2*1.4
  83. 83 next:next:forw=1to8:poke54287,f2:f2=f2*1.07:next:poke54278,15:return
  84. 84 rp$="[208][210][201][206][212][197][210]":iff$="1"orf$="2"thenrp$="[210][197][193][196][197][210] "
  85. 85 syscc:printchr$(14):print"[147]"tab(2)"[144]***********************************"
  86. 86 printtab(2)"*    [198]"f$" [213][204][212][210][193][160][211][197][209]-[198][201][204][197][160]"rp$"    *"
  87. 87 printtab(2)"***********************************"
  88. 88 poke214,23:print:print"[200]ol[199]
  89.